object Form1: TForm1 Left = 196 Top = 105 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Darts 95' ClientHeight = 352 ClientWidth = 339 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MM Position = poScreenCenter OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 4 Top = 0 Width = 25 Height = 9 AutoSize = False Caption = 'Time:' Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [] ParentFont = False Visible = False end object Panel1: TPanel Left = 0 Top = 12 Width = 337 Height = 337 BevelWidth = 3 TabOrder = 0 object SpritesPad1: TSpritesPad Left = 8 Top = 8 Width = 318 Height = 320 BkgrBitmap = 'table.BMP' X = 0 Y = 0 end object ASprite2: TASprite Left = 52 Top = 56 Width = 50 Height = 50 AnimTime = 0 Sprite = 'Hit.spr' X = 52 Y = 56 SpritesPad = SpritesPad1 Loop = False end object ASprite3: TASprite Left = 108 Top = 56 Width = 50 Height = 50 AnimTime = 0 Sprite = 'Hit.spr' X = 108 Y = 56 SpritesPad = SpritesPad1 Loop = False end object ASprite4: TASprite Left = 164 Top = 56 Width = 50 Height = 50 AnimTime = 0 Sprite = 'Hit.spr' X = 164 Y = 56 SpritesPad = SpritesPad1 Loop = False end object ASprite1: TASprite Left = 12 Top = 124 Width = 150 Height = 130 AnimTime = 0 Sprite = 'Hand.spr' X = 12 Y = 124 SpritesPad = SpritesPad1 end object MP1: TMediaPlayer Left = 40 Top = 96 Width = 253 Height = 30 AutoOpen = True DeviceType = dtWaveAudio FileName = 'Hit.wav' Visible = False TabOrder = 0 end end object Panel8: TPanel Left = 12 Top = 24 Width = 57 Height = 41 BevelInner = bvLowered BevelWidth = 3 Caption = '301' Color = clBlack Font.Color = clWhite Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object Panel9: TPanel Left = 264 Top = 24 Width = 57 Height = 41 BevelInner = bvLowered BevelWidth = 3 Caption = '301' Color = clBlack Font.Color = clWhite Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object Panel10: TPanel Left = 12 Top = 292 Width = 57 Height = 41 BevelInner = bvLowered BevelWidth = 3 Caption = '301' Color = clBlack Font.Color = clWhite Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object Panel11: TPanel Left = 264 Top = 292 Width = 57 Height = 41 BevelInner = bvLowered BevelWidth = 3 Caption = '301' Color = clBlack Font.Color = clWhite Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 end object Panel3: TPanel Left = 76 Top = 24 Width = 181 Height = 41 BevelInner = bvLowered BevelWidth = 3 Caption = 'PLAYER 1' Color = clBlack Font.Color = clWhite Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 5 Visible = False end object PB: TProgressBar Left = 32 Top = 0 Width = 305 Height = 9 Min = 0 Max = 20 Position = 20 TabOrder = 6 Visible = False end object Panel2: TPanel Left = 52 Top = 136 Width = 233 Height = 41 BevelInner = bvLowered BevelWidth = 3 Caption = 'THE WINNER IS PLAYER 1' Color = clRed Font.Color = clWhite Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 7 Visible = False end object Panel4: TPanel Left = 52 Top = 172 Width = 233 Height = 41 BevelInner = bvLowered BevelWidth = 3 Caption = 'BUST' Color = clRed Font.Color = clWhite Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 8 Visible = False end object Timer1: TTimer Enabled = False Interval = 30 OnTimer = Timer1Timer Left = 16 Top = 72 end object MM: TMainMenu Left = 296 Top = 96 object Game1: TMenuItem Caption = '&Game' ShortCut = 0 object NewGame1: TMenuItem Caption = '&New Game' ShortCut = 113 OnClick = NewGame1Click end object EndGame1: TMenuItem Caption = '&End Game' ShortCut = 114 OnClick = EndGame1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = Exit1Click end end object Setup1: TMenuItem Caption = '&Setup' ShortCut = 0 object Game2: TMenuItem Caption = '&Game type' ShortCut = 0 object Classic1: TMenuItem Caption = '&Classic' Checked = True ShortCut = 0 OnClick = Classic1Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object TimeHit1: TMenuItem Caption = 'Classic + &Time limit' ShortCut = 0 OnClick = TimeHit1Click end object ChangeTimeLimit1: TMenuItem Caption = 'Change Time &Limit' ShortCut = 0 OnClick = ChangeTimeLimit1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object HumanvsComputer1: TMenuItem Caption = '&Human vs. Computer' ShortCut = 0 OnClick = HumanvsComputer1Click end object ChangeComputerPlayer1: TMenuItem Caption = 'Change &Computer Player' ShortCut = 0 OnClick = ChangeComputerPlayer1Click end end object NoofPlayers1: TMenuItem Caption = 'No of Players' ShortCut = 0 object N1Player1: TMenuItem Caption = '&1 Player' Checked = True GroupIndex = 1 ShortCut = 0 OnClick = N1Player1Click end object N2Players1: TMenuItem Caption = '&2 Players' GroupIndex = 1 ShortCut = 0 OnClick = N2Players1Click end object N3Players1: TMenuItem Caption = '&3 Players' GroupIndex = 1 ShortCut = 0 OnClick = N3Players1Click end object N4Players1: TMenuItem Caption = '&4 Players' GroupIndex = 1 ShortCut = 0 OnClick = N4Players1Click end end object N2: TMenuItem Caption = '-' ShortCut = 0 end object N3011: TMenuItem Caption = '&301' Checked = True ShortCut = 0 OnClick = N3011Click end object N5011: TMenuItem Caption = '&501' ShortCut = 0 OnClick = N5011Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object DoubleOut1: TMenuItem Caption = '&Double Out' Checked = True ShortCut = 0 OnClick = DoubleOut1Click end object DoubleIn1: TMenuItem Caption = 'Double &In' ShortCut = 0 OnClick = DoubleIn1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object Contents1: TMenuItem Caption = '&Contents' ShortCut = 0 OnClick = Contents1Click end object N6: TMenuItem Caption = '-' ShortCut = 0 end object About1: TMenuItem Caption = '&About' ShortCut = 0 OnClick = About1Click end end end object Timer2: TTimer Enabled = False Interval = 100 OnTimer = Timer2Timer Left = 12 Top = 260 end end